home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 11 / FM Towns Free Software Collection 11.iso / t_os / edu / kana / src / mk_tiff.bas < prev   
BASIC Source File  |  1995-07-12  |  4KB  |  121 lines
  1. 1000 '====================================================================
  2. 1010 '
  3. 1020 '                 『平仮名・片仮名の練習』画面作成
  4. 1030 '                                                by H.AOE  1995.07.06
  5. 1040 '====================================================================
  6. 1050 '
  7. 1060 *初期設定
  8. 1070  COLOR 7,0,7,0:CLS                              '画面クリア
  9. 1080  DEFINT A-Z                                     '整数変数に設定
  10. 1090  CLEAR,,,,,300000                               'ﾌｫﾝﾄ用DLL領域
  11. 1100  SCREEN 0    :SCREEN@ 0                         'ｸﾞﾗﾌｨｯｸ１画面
  12. 1110  GOSUB *PALETTE                                 'パレット設定
  13. 1120  WINDOW(0,0)-(639,479):VIEW(0,0)-(639,479),%2   '１６色モード
  14. 1130 '
  15. 1140 *ボタン作成
  16. 1150 '--------------------------------------------------------------------
  17. 1160 ' タイトル表示     ( 20, 20)-(399, 79)
  18. 1170 ' メインウインドウ ( 40,120)-(379,439)
  19. 1180 ' 五十音ボタン     (420, 60)-(619,459)
  20. 1190 ' 読み書きスイッチ (420, 20)-(529, 49)
  21. 1200 ' 終了ボタン       (540, 20)-(619, 49)
  22. 1210 '--------------------------------------------------------------------
  23. 1220  HIRA$="あいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほまみむめもやゆよらりるれろわをん"
  24. 1230  KATA$="アイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワヲン"
  25. 1240 '
  26. 1250 *タイトル表示
  27. 1260  DEF FONT"ゴシック体 32ﾄﾞｯﾄ"
  28. 1270  SX=20:EX=399:SY=20:EY=79:COL=13:GOSUB *BUTTON
  29. 1280  SYMBOL(30,27),"ひらがなのれんしゅう",2,3,%6,,,,4
  30. 1290 'SAVE@"TITLE_0.TIF",( 20, 20)-(399, 79)
  31. 1300  SX=20:EX=399:SY=20:EY=79:COL=13:GOSUB *BUTTON
  32. 1310  SYMBOL(30,27),"カタカナのれんしゅう",2,3,%6,,,,4
  33. 1320 'SAVE@"TITLE_1.TIF",( 20, 20)-(399, 79)
  34. 1330 '
  35. 1340 *メインウインドウ
  36. 1350  SX=20:EX=399:SY=100:EY=459:COL=7:GOSUB *BUTTON
  37. 1360  EX=40:SX=379:EY=120:SY=439:COL=15:GOSUB *BUTTON
  38. 1370 'SAVE@"MAIN_WIN.TIF",( 20,100)-(399,459)
  39. 1380 '
  40. 1390 *五十音ボタン
  41. 1400  GOJU$=HIRA$
  42. 1410  GOSUB *五十音
  43. 1420 'SAVE@"GOJU_0.TIF",(420, 60)-(619,459)
  44. 1430  GOJU$=KATA$
  45. 1440  GOSUB *五十音
  46. 1450 'SAVE@"GOJU_1.TIF",(420, 60)-(619,459)
  47. 1460 '
  48. 1470 *読み書きスイッチ
  49. 1480  DEF FONT"ゴシック体 24ﾄﾞｯﾄ"
  50. 1490  SX=420:EX=529:SY=20:EY=49:COL=2:GOSUB *BUTTON
  51. 1500  SYMBOL(SX+7,SY+3),"かきかた",1.5!,1.5!,%10
  52. 1510 'SAVE@"RW_0.TIF",(420, 20)-(529, 49)
  53. 1520  EX=420:SX=529:EY=20:SY=49:COL=2:GOSUB *BUTTON
  54. 1530  SYMBOL(EX+7,EY+3),"よみかた",1.5!,1.5!,%13
  55. 1540 'SAVE@"RW_1.TIF",(420, 20)-(529, 49)
  56. 1550 '
  57. 1560 *終了ボタン
  58. 1570  SX=540:EX=619:SY=20:EY=49:COL=2:GOSUB *BUTTON
  59. 1580  SYMBOL(SX+6,SY+3),"おわり",1.5!,1.5!,%10
  60. 1590 'SAVE@"EXIT_B.TIF",(540, 20)-(619, 49)
  61. 1600 '
  62. 1610 *終了
  63. 1620 'CLS
  64. 1630 'PALETTE
  65. 1640  END
  66. 1650 '
  67. 1660 *五十音
  68. 1670  FOR Y=0 TO 9
  69. 1680   FOR X=0 TO 4
  70. 1690    SX=X*40+420:EX=SX+37:SY=Y*40+60:EY=SY+37:COL=7
  71. 1700    GOSUB *BUTTON
  72. 1710    GOSUB *文字
  73. 1720   NEXT
  74. 1730  NEXT
  75. 1740  RETURN
  76. 1750 '
  77. 1760 *文字
  78. 1770  IF (Y=7 OR Y=9) AND (X=1 OR X=3) THEN RETURN
  79. 1780   MOJI=X+Y*5
  80. 1790   IF MOJI=37 THEN MOJI=36
  81. 1800   IF MOJI>38 THEN MOJI=MOJI-2
  82. 1810   IF MOJI=45 THEN MOJI=44 ELSE IF MOJI=47 THEN MOJI=45
  83. 1820   SYMBOL(SX+3,SY+3),KMID$(GOJU$,MOJI+1,1),2,2,%15
  84. 1830  RETURN
  85. 1840 '
  86. 1850 *BUTTON
  87. 1860 '--------------------------------------------------------------------
  88. 1870 ' (SX,SY)-(EX,EY)を対角とする四角形のボタンまたはウインドウを描く。
  89. 1880 ' (SX,SY)が左側のとき…ボタン  (EX,EY)が左側のとき…ウインドウ
  90. 1890 ' COL:ボタン(ウインドウ)の色
  91. 1900 ' SX,SY,EX,EY,COLはすべて呼び出し側で指定する。
  92. 1910 '--------------------------------------------------------------------
  93. 1920  IF SX<>EX AND SY<>EY THEN
  94. 1930   LINE(SX,SY)-(EX,EY),PSET,%COL,BF
  95. 1940   PL=SGN(EX-SX)
  96. 1950   FOR A=0 TO 1
  97. 1960    CONNECT(SX+A*PL,EY-A*PL)-(SX+A*PL,SY+A*PL)-(EX-A*PL,SY+A*PL),%15
  98. 1970    CONNECT(EX-A*PL,SY+A*PL)-(EX-A*PL,EY-A*PL)-(SX+A*PL,EY-A*PL),%8
  99. 1980   NEXT
  100. 1990  ENDIF
  101. 2000  RETURN
  102. 2010 '
  103. 2020 *PALETTE
  104. 2030  PALETTE  0,[  0,  0,  0]
  105. 2040  PALETTE  1,[  0,  0,240]
  106. 2050  PALETTE  2,[128,  0,128]
  107. 2060  PALETTE  3,[192,240,176]
  108. 2070  PALETTE  4,[208,240,224]
  109. 2080  PALETTE  5,[176,240,112]
  110. 2090  PALETTE  6,[ 80,160, 48]
  111. 2100  PALETTE  7,[128,128,128]
  112. 2110  PALETTE  8,[ 64, 64, 64]
  113. 2120  PALETTE  9,[  0,240,  0]
  114. 2130  PALETTE 10,[240,  0,192]
  115. 2140  PALETTE 11,[240,  0,  0]
  116. 2150  PALETTE 12,[240,112,128]
  117. 2160  PALETTE 13,[240,240,160]
  118. 2170  PALETTE 14,[240,240,  0]
  119. 2180  PALETTE 15,[255,255,255]
  120. 2190  RETURN
  121.